Option Explicit
Sub D_Sample032()
    Dim myFileName As String
    myFileName = Application.GetOpenFilename("Excelï(*.xls),*.xls")
    If myFileName <> "False" Then
        MsgBox myFileName
        'Workbooks.Open Filename:=myFileName
    Else
        MsgBox "twTɮצW١C"
    End If
End Sub
